unit Tema;

interface

type
  TTema = class
  private
    { Private Declarations }
  public
  Function GetGoldenImg (BGTema: String): string;
  Function GetBlockImg (BTema:String): String;
  Function GetSelectGoldenImg (BGTema: String): string;
  Function GetSelectBlockImg (BTema:String): String;
    constructor Create;
  end;

implementation

constructor TTema.Create;
begin
  inherited Create;
  // TODO: Add any constructor code here
end;
  Function TTema.GetGoldenImg(BGTema: string): String;
  begin

  if (BGTema.Equals('Eyes')) then
  Result := 'Teman\Eyes\GEyes.jpg';
  if (BGTema.Equals('Sand')) then
  Result := 'Teman\Sand\GSand.jpg';
  if (BGTema.Equals('Flower')) then
  Result := 'Teman\Flower\GFlower.jpg';
  if (BGTema.Equals('Ice')) then
  Result := 'Teman\Ice\GIce.jpg';
  if (BGTema.Equals('Jungle')) then
  Result := 'Teman\Jungle\GJungle.jpg';
  if (BGTema.Equals('Space')) then
  Result := 'Teman\Space\GSpace.jpg';
  if (BGTema.Equals('Summer')) then
  Result := 'Teman\Summer\GSummer.jpg';


  end;

  Function TTema.GetBlockImg(BTema: string): string;
  begin

  if (BTema.Equals('Eyes')) then
  Result := 'Teman\Eyes\Eyes.jpg';
  if (BTema.Equals('Sand')) then
  Result := 'Teman\Sand\Sand.jpg';
  if (BTema.Equals('Flower')) then
  Result := 'Teman\Flower\Flower.jpg';
  if (BTema.Equals('Ice')) then
  Result := 'Teman\Ice\Ice.jpg';
  if (BTema.Equals('Jungle')) then
  Result := 'Teman\Jungle\Jungle.jpg';
  if (BTema.Equals('Space')) then
  Result := 'Teman\Space\Space.jpg';
  if (BTema.Equals('Summer')) then
  Result := 'Teman\Summer\Summer.jpg';


  end;
  Function TTema.GetSelectGoldenImg(BGTema: string): String;
  begin

  if (BGTema.Equals('Eyes')) then
  Result := 'Teman\Eyes\IGEyes.jpg';
  if (BGTema.Equals('Sand')) then
  Result := 'Teman\Sand\IGSand.jpg';
  if (BGTema.Equals('Flower')) then
  Result := 'Teman\Flower\IGFlower.jpg';
  if (BGTema.Equals('Ice')) then
  Result := 'Teman\Ice\IGIce.jpg';
  if (BGTema.Equals('Jungle')) then
  Result := 'Teman\Jungle\IGJungle.jpg';
  if (BGTema.Equals('Space')) then
  Result := 'Teman\Space\IGSpace.jpg';
  if (BGTema.Equals('Summer')) then
  Result := 'Teman\Summer\IGSummer.jpg';


  end;

  Function TTema.GetSelectBlockImg(BTema: string): string;
  begin

  if (BTema.Equals('Eyes')) then
  Result := 'Teman\Eyes\IEyes.jpg';
  if (BTema.Equals('Sand')) then
  Result := 'Teman\Sand\ISand.jpg';
  if (BTema.Equals('Flower')) then
  Result := 'Teman\Flower\IFlower.jpg';
  if (BTema.Equals('Ice')) then
  Result := 'Teman\Ice\IIce.jpg';
  if (BTema.Equals('Jungle')) then
  Result := 'Teman\Jungle\IJungle.jpg';
  if (BTema.Equals('Space')) then
  Result := 'Teman\Space\ISpace.jpg';
  if (BTema.Equals('Summer')) then
  Result := 'Teman\Summer\ISummer.jpg';


  end;

end.
